home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / arexx / rxtrk386.lha / RexxTricks / install_rexxtricks < prev    next >
Text File  |  1996-04-20  |  22KB  |  779 lines
  1. ; ******************************************************************************
  2. ; Installer-Skript für alle im 'RexxTricks' Paket enthaltenen Dateien.
  3. ;
  4. ; $VER: Install_RexxTricks 1.0 (20.4.96) (C) 1996 Jürgen Kohrmeyer
  5. ;*******************************************************************************
  6.  
  7. ; ***** rexxtricks.library installieren ****************************************
  8.  
  9. (procedure install_rexxtricks
  10.    (set rexxtricksinstalled 1)
  11.    (set installedver (getversion ("LIBS:%s" rexxtrickslib)))
  12.  
  13.    (if (< installedver rexxtricksver)
  14.       (
  15.          (if (=  @user-level 2)
  16.             (set libdir
  17.                (askdir
  18.                   (prompt (MSG_ASK_LIBDIR rexxtrickslib ""))
  19.                   (help @askdir-help)
  20.                   (default libdir)
  21.                )
  22.             )
  23.          )
  24.  
  25.          (copylib
  26.             (prompt (MSG_COPY_LIB rexxtrickslib ""))
  27.             (help @copylib-help)
  28.             (source "libs/rexxtricks.library")
  29.             (dest libdir)
  30.             (confirm)
  31.          )
  32.  
  33.          (set catalogdir (tackon "locale/catalogs" @language))
  34.  
  35.          (if (exists catalogdir)
  36.             (copyfiles
  37.                (prompt MSG_COPY_CATALOG)
  38.                (help @copyfiles-help)
  39.                (source catalogdir)
  40.                (dest (tackon "LOCALE:catalogs" @language))
  41.                (pattern "rexxtricks.catalog")
  42.                (files)
  43.                (confirm)
  44.             )
  45.          )
  46.  
  47.          (set result 5)
  48.  
  49.          (until (= result 0)
  50.             (set result (run ("C/LoadLib Libs/%s" rexxtrickslib)))
  51.  
  52.             (if (= result 5)
  53.                (
  54.                   (set proceed
  55.                      (askbool
  56.                         (prompt (MSG_FLUSH_LIB rexxtrickslib rexxtrickslib))
  57.                         (choices MSG_PROCEED MSG_SKIP)
  58.                         (help "")
  59.                      )
  60.                   )
  61.  
  62.                   (if (not proceed)
  63.                      (set result 0)
  64.                   )
  65.                )
  66.             )
  67.          )
  68.  
  69.          (set rexxtricksinstalled 2)
  70.       )
  71.    )
  72. )
  73.  
  74. ; ***** tritonrexx.library installieren ****************************************
  75.  
  76. (procedure install_tritonrexx
  77.    (set tritonrexxinstalled 1)
  78.    (set installedver (getversion ("LIBS:%s" tritonrexxlib)))
  79.  
  80.    (if (< installedver tritonrexxver)
  81.       (
  82.          (if (= @user-level 2)
  83.             (set libdir
  84.                (askdir
  85.                   (prompt (MSG_ASK_LIBDIR tritonrexxlib MSG_INFO_EXTRALIB))
  86.                   (help @askdir-help)
  87.                   (default libdir)
  88.                )
  89.             )
  90.          )
  91.  
  92.          (copylib
  93.             (prompt (MSG_COPY_LIB tritonrexxlib MSG_INFO_TRX))
  94.             (help @copylib-help)
  95.             (source "libs/tritonrexx.library")
  96.             (dest libdir)
  97.             (confirm)
  98.          )
  99.  
  100.          (set result 5)
  101.  
  102.          (until (= result 0)
  103.             (set result (run ("C/LoadLib Libs/%s" tritonrexxlib)))
  104.  
  105.             (if (= result 5)
  106.                (
  107.                   (set proceed
  108.                      (askbool
  109.                         (prompt (MSG_FLUSH_LIB tritonrexxlib tritonrexxlib))
  110.                         (choices MSG_PROCEED MSG_SKIP)
  111.                         (help "")
  112.                      )
  113.                   )
  114.  
  115.                   (if (not proceed)
  116.                      (set result 0)
  117.                   )
  118.                )
  119.             )
  120.          )
  121.  
  122.          (set tritonrexxinstalled 2)
  123.       )
  124.    )
  125. )
  126.  
  127. ; ***** triton.library installieren ********************************************
  128.  
  129. (procedure install_triton
  130.    (set tritoninstalled 1)
  131.    (set installedver (getversion ("LIBS:%s" tritonlib)))
  132.  
  133.    (if (< installedver tritonver)
  134.       (
  135.          (if (= @user-level 2)
  136.             (set libdir
  137.                (askdir
  138.                   (prompt (MSG_ASK_LIBDIR tritonlib MSG_INFO_EXTRALIB))
  139.                   (help @askdir-help)
  140.                   (default libdir)
  141.                )
  142.             )
  143.          )
  144.  
  145.          (copylib
  146.             (prompt (MSG_COPY_LIB tritonlib MSG_INFO_TRITON))
  147.             (help @copylib-help)
  148.             (source "triton/triton.library")
  149.             (dest libdir)
  150.             (confirm)
  151.          )
  152.  
  153.          (run "Avail >NIL: FLUSH")
  154.          (set result 5)
  155.  
  156.          (until (= result 0)
  157.             (set result (run ("C/LoadLib Triton/%s" tritonlib)))
  158.  
  159.             (if (= result 5)
  160.                (
  161.                   (set proceed
  162.                      (askbool
  163.                         (prompt (MSG_FLUSH_LIB tritonlib tritonlib))
  164.                         (choices MSG_PROCEED MSG_SKIP)
  165.                         (help "")
  166.                      )
  167.                   )
  168.  
  169.                   (if (not proceed)
  170.                      (set result 0)
  171.                   )
  172.                )
  173.             )
  174.          )
  175.  
  176.          (set tritoninstalled 2)
  177.       )
  178.    )
  179. )
  180.  
  181. ; ***** rexxtricks.guide installieren ******************************************
  182.  
  183. (procedure install_guide
  184.    (set docdir
  185.       (askdir
  186.          (prompt (MSG_ASK_DOCDIR "rexxtricks.guide"))
  187.          (help @askdir-help)
  188.          (default docdir)
  189.       )
  190.    )
  191.  
  192.    (copyfiles
  193.       (prompt (MSG_COPY_GUIDE docdir))
  194.       (help @copyfiles-help)
  195.       (source (tackon "docs" @language))
  196.       (dest docdir)
  197.       (pattern "rexxtricks.guide")
  198.       (files)
  199.       (infos)
  200.       (confirm)
  201.    )
  202.  
  203.    (set guideinstalled 1)
  204. )
  205.  
  206. ; ***** rexxtricks.doc installieren ********************************************
  207.  
  208. (procedure install_doc
  209.    (set docdir
  210.       (askdir
  211.          (prompt (MSG_ASK_DOCDIR docname))
  212.          (help @askdir-help)
  213.          (default docdir)
  214.       )
  215.    )
  216.  
  217.    (copyfiles
  218.       (prompt (MSG_COPY_DOC docdir))
  219.       (help @copyfiles-help)
  220.       (source (tackon "docs" @language))
  221.       (dest docdir)
  222.       (pattern docname)
  223.       (files)
  224.       (infos)
  225.       (confirm)
  226.    )
  227.  
  228.    (set docinstalled 1)
  229. )
  230.  
  231. ; ***** FindGUI installieren ***************************************************
  232.  
  233. (procedure install_findgui
  234.    (set finddir
  235.       (askdir
  236.          (prompt MSG_ASK_FINDDIR)
  237.          (help @askdir-help)
  238.          (default finddir)
  239.       )
  240.    )
  241.  
  242.    (copyfiles
  243.       (prompt (MSG_COPY_FINDGUI finddir))
  244.       (help @copyfiles-help)
  245.       (source "")
  246.       (dest finddir)
  247.       (pattern "FindGUI")
  248.       (infos)
  249.       (confirm)
  250.    )
  251.  
  252.    (if (not rexxtricksinstalled)
  253.       (install_rexxtricks)
  254.    )
  255.  
  256.    (if (not tritonrexxinstalled)
  257.       (install_tritonrexx)
  258.    )
  259.  
  260.    (if (not tritoninstalled)
  261.       (install_triton)
  262.    )
  263.  
  264.    (set findguiinstalled 1)
  265. )
  266.  
  267. ; ***** Diskette für RDBBackup erstellen ***************************************
  268.  
  269. (procedure rdbbackup_create_floppy
  270.    (set result 10)
  271.  
  272.    (until (= result 0)
  273.       (set format
  274.          (askbool
  275.             (prompt (MSG_INSERT_DISK drivename drivename))
  276.             (choices MSG_SELECT_FORMAT MSG_SELECT_NOFORMAT)
  277.             (help "")
  278.          )
  279.       )
  280.  
  281.       (if format
  282.          (
  283.             (working (MSG_FORMATTING_DISK drivename))
  284.             (set result (run ("SYS:System/Format <>CON:10/10//100/Installer/AUTO DRIVE %s NAME RDBBackup" drivename)))
  285.          )
  286.          (
  287.             (run ("relabel %s RDBBackup" drivename))
  288.             (set result 0)
  289.          )
  290.       )
  291.    )
  292.  
  293.    (working (MSG_INSTALLING_DISK drivename))
  294.  
  295.    (run ("Install %s" drivename))
  296.  
  297.    (working (MSG_COPYING_FILES drivename))
  298.  
  299.    (copyfiles
  300.       (source "C:")
  301.       (dest (tackon drivename "c"))
  302.       (pattern "(Assign|ConClip|Copy|Dir|Execute|FileNote|IconX|IPrefs|LoadWB)")
  303.    )
  304.  
  305.    (copyfiles
  306.       (source "C:")
  307.       (dest (tackon drivename "c"))
  308.       (pattern "(List|MakeDir|Prompt|Rename|SetClock|SetPatch|Version)")
  309.    )
  310.  
  311.    (copyfiles
  312.       (source "DEVS:")
  313.       (dest (tackon drivename "devs"))
  314.       (choices "clipboard.device")
  315.    )
  316.  
  317.    (copyfiles
  318.       (source "DEVS:keymaps")
  319.       (dest (tackon drivename "devs/keymaps"))
  320.       (pattern "#?")
  321.    )
  322.  
  323.    (copyfiles
  324.       (source "devs")
  325.       (dest (tackon drivename "devs"))
  326.       (choices "system-configuration")
  327.    )
  328.  
  329.    (copyfiles
  330.       (source "LIBS:")
  331.       (dest (tackon drivename "libs"))
  332.       (pattern "(asl|diskfont|iffparse|mathieeedoubbas|rexxsupport|rexxsyslib|version).library")
  333.    )
  334.  
  335.    (copyfiles
  336.       (source "libs")
  337.       (dest (tackon drivename "libs"))
  338.       (pattern "(rexxtricks|tritonrexx).library")
  339.    )
  340.  
  341.    (copyfiles
  342.       (source "triton")
  343.       (dest (tackon drivename "libs"))
  344.       (pattern "triton.library")
  345.    )
  346.  
  347.    (if (exists "LOCALE:")
  348.       (
  349.          (copyfiles
  350.             (source "LIBS:")
  351.             (dest (tackon drivename "libs"))
  352.             (pattern "locale.library")
  353.          )
  354.  
  355.          (set catalogdir  (tackon "LOCALE:catalogs" @language))
  356.          (set localedest (tackon drivename "locale"))
  357.          (set catalogdest (tackon localedest "catalogs"))
  358.          (set languagedest (tackon catalogdest @language))
  359.  
  360.          (makedir localedest)
  361.          (makedir catalogdest)
  362.          (makedir languagedest)
  363.  
  364.          (copyfiles
  365.             (source (tackon catalogdir "sys"))
  366.             (dest (tackon languagedest "sys"))
  367.             (pattern "#?.catalog")
  368.             (optional nofail)
  369.          )
  370.  
  371.          (copyfiles
  372.             (source "LOCALE:countries")
  373.             (dest (tackon localedest "countries"))
  374.             (pattern "#?.country")
  375.          )
  376.  
  377.          (copyfiles
  378.             (source "LOCALE:languages")
  379.             (dest (tackon localedest "languages"))
  380.             (pattern "#?.language")
  381.          )
  382.  
  383.          (if (<> @language "english")
  384.             (copyfiles
  385.                (source (tackon "RDBBackup/catalogs" @language))
  386.                (dest languagedest)
  387.                (pattern "RDBBackup.catalog")
  388.             )
  389.          )
  390.       )
  391.    )
  392.  
  393.    (copyfiles
  394.       (source "SYS:rexxc")
  395.       (dest (tackon drivename "rexxc"))
  396.       (pattern "rx")
  397.    )
  398.  
  399.    (copyfiles
  400.       (source "SYS:system")
  401.       (dest (tackon drivename "system"))
  402.       (pattern "(RexxMast|Cli)")
  403.    )
  404.  
  405.    (copyfiles
  406.       (source "SYS:system")
  407.       (dest drivename)
  408.       (choices "Shell.info")
  409.    )
  410.  
  411.    (set prefsdir (tackon drivename "prefs"))
  412.    (set envarcdir (tackon prefsdir "env-archive"))
  413.  
  414.    (makedir prefsdir)
  415.    (makedir envarcdir)
  416.    (makedir (tackon envarcdir "triton"))
  417.  
  418.    (copyfiles
  419.       (source "ENVARC:sys")
  420.       (dest (tackon envarcdir "sys"))
  421.       (pattern "(icontrol|input|locale|wbconfig).prefs")
  422.    )
  423.  
  424.    (makedir (tackon drivename "RDB"))
  425.  
  426.    (copyfiles
  427.       (source "RDBBackup")
  428.       (dest drivename)
  429.       (pattern "RDBBackup(.#?|%)")
  430.    )
  431.  
  432.    (copyfiles
  433.       (source "RDBBackup/ReadRDB_0.5")
  434.       (dest drivename)
  435.       (choices "ReadRDB")
  436.    )
  437.  
  438.    (tooltype
  439.       (dest (tackon drivename "RDBBackup"))
  440.       (noposition)
  441.    )
  442.  
  443.    (tooltype
  444.       (dest (tackon drivename "Shell"))
  445.       (noposition)
  446.    )
  447.  
  448.    (working (MSG_CREATING_STARTUP drivename))
  449.  
  450.    (set sdir (tackon drivename "s"))
  451.    (makedir sdir)
  452.  
  453.    (textfile
  454.       (dest (tackon sdir "startup-sequence"))
  455.       (append "SetPatch QUIET\n")
  456.       (append "SetClock >NIL: LOAD\n")
  457.       (append "Version >NIL:\n")
  458.       (append "FailAt 21\n")
  459.       (append "MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys\n")
  460.       (append "Copy >NIL: ENVARC: RAM:ENV ALL NOREQ\n")
  461.       (append "Resident >NIL: C:Assign PURE\n")
  462.       (append "Assign >NIL: ENV: RAM:ENV\n")
  463.       (append "Assign >NIL: T: RAM:T\n")
  464.       (append "Assign >NIL: CLIPS: RAM:Clipboards\n")
  465.       (append "Assign >NIL: KEYMAPS: DEVS:Keymaps\n")
  466.       (append "Assign >NIL: REXX: S:\n")
  467.       (append "Assign >NIL: LOCALE: SYS:Locale\n")
  468.       (append ("SetEnv Language \"%s\"\n" @language))
  469.       (append "SetEnv Workbench $Workbench\n")
  470.       (append "SetEnv Kickstart $Kickstart\n")
  471.       (append "UnSet Workbench\n")
  472.       (append "UnSet Kickstart\n")
  473.       (append "IPrefs\n")
  474.       (append "ConClip\n")
  475.       (append "Path >NIL: C: SYS:Rexxc\n")
  476.       (append "SYS:System/RexxMast >NIL:\n")
  477.       (append "Resident Assign REMOVE\n")
  478.       (append "C:LoadWB\n")
  479.       (append "EndCLI >NIL:\n")
  480.    )
  481.  
  482.    (textfile
  483.       (dest (tackon sdir "shell-startup"))
  484.       (append "Prompt \"%S> \"\n")
  485.    )
  486. )
  487.  
  488. ; ***** RDBBackup-Verzeichnis kopieren *****************************************
  489.  
  490. (procedure rdbbackup_copy_drawer
  491.    (set rdbbackupdir
  492.       (askdir
  493.          (prompt MSG_ASK_RDBBACKUPDIR)
  494.          (help @askdir-help)
  495.          (default rdbbackupdir)
  496.       )
  497.    )
  498.  
  499.    (copyfiles
  500.       (prompt (MSG_COPY_RDBBACKUP rdbbackupdir))
  501.       (help @copyfiles-help)
  502.       (source "")
  503.       (dest rdbbackupdir)
  504.       (pattern "RDBBackup")
  505.       (infos)
  506.       (confirm)
  507.    )
  508.  
  509.    (if (not rexxtricksinstalled)
  510.       (install_rexxtricks)
  511.    )
  512.  
  513.    (if (not tritonrexxinstalled)
  514.       (install_tritonrexx)
  515.    )
  516.  
  517.    (if (not tritoninstalled)
  518.       (install_triton)
  519.    )
  520. )
  521.  
  522. ; ***** RDBBackup installieren *************************************************
  523.  
  524. (procedure install_rdbbackup
  525.    (set floppy
  526.       (askchoice
  527.          (prompt MSG_ASK_FLOPPY)
  528.          (choices MSG_SELECT_DF0 MSG_SELECT_DF1 MSG_SELECT_DF2 MSG_SELECT_DF3 MSG_SELECT_DRAWER)
  529.          (default 0)
  530.          (help @askchoice-help)
  531.       )
  532.    )
  533.  
  534.    (if (= floppy 4)
  535.       (rdbbackup_copy_drawer)
  536.       (
  537.          (set drivename ("DF%ld:" floppy))
  538.          (rdbbackup_create_floppy)
  539.          (set rdbbackupdir drivename)
  540.       )
  541.    )
  542.  
  543.    (set rdbbackupinstalled 1)
  544. )
  545.  
  546. ; ***** Deutsch ****************************************************************
  547.  
  548. (procedure deutsch
  549.    (set MSG_SELECT_INSTALL     "Bitte wählen Sie die zu installierenden Programme.")
  550.    (set MSG_INSTALL_REXXTRICKS "rexxtricks.library - Version 38.6")
  551.    (set MSG_INSTALL_GUIDE      "RexxTricks.guide   - AmigaGuide-Anleitung")
  552.    (set MSG_INSTALL_DOC        "RexxTricks.dok     - ASCII-Anleitung")
  553.    (set MSG_INSTALL_FINDGUI    "FindGUI            - GUI für Find")
  554.    (set MSG_INSTALL_RDBBACKUP  "RDBBackup          - GUI für ReadRDB")
  555.  
  556.    (set MSG_ASK_LIBDIR         "In welches Verzeichnis soll die '%s' kopiert werden?%s")
  557.    (set MSG_COPY_LIB           "Kopieren der '%s'!%s")
  558.    (set MSG_COPY_CATALOG       "Kopieren der Datei 'rexxtricks.catalog'!")
  559.    (set MSG_FLUSH_LIB (cat     "\nUm die neue '%s' zu verwenden muß die alte Version "
  560.                                "aus dem Speicher entfernt werden! Bitte beenden Sie "
  561.                                "alle Programme, die die '%s' verwenden, und klicken "
  562.                                "Sie danach auf 'Weiter'!"))
  563.    (set MSG_PROCEED            "Weiter")
  564.    (set MSG_SKIP               "Diesen teil überspringen")
  565.  
  566.    (set MSG_ASK_DOCDIR         "In welches Verzeichnis soll die Datei '%s' kopiert werden?")
  567.    (set MSG_COPY_GUIDE         "Kopieren der AmigaGuide Anleitung nach '%s'!")
  568.    (set MSG_COPY_DOC           "Kopieren der ASCII Anleitung nach '%s'!")
  569.  
  570.    (set MSG_INFO_EXTRALIB      " Diese Library wird von 'FindGUI' und 'RDBBackup' benötigt!")
  571.  
  572.    (set MSG_INFO_TRX (cat      "\n\nUm mehr Informationen über 'TritonRexx' zu erhalten "
  573.                                "lesen Sie bitte die Datei 'TritonRexx.ReadMe'!"))
  574.  
  575.    (set MSG_INFO_TRITON (cat   "\n\nUm mehr Informationen über 'Triton' zu erhalten lesen "
  576.                                "Sie bitte die Datei 'ReadMe' im Verzeichnis 'Triton'!\n"
  577.                                "'Triton' ist © 1993-1994 Stefan Zeiger."))
  578.  
  579.    (set MSG_ASK_FINDDIR        "Wo soll das 'FindGUI' Verzeichnis erzeugt werden?")
  580.    (set MSG_COPY_FINDGUI       "Kopieren der Anwendung 'FindGUI' nach '%s'!")
  581.  
  582.    (set MSG_ASK_FLOPPY (cat    "'RDBBackup' sollte auf einer bootfähigen Diskette "
  583.                                "installiert werden! Wenn Sie jetzt ein Laufwerk "
  584.                                "auswählen benötigen Sie eine Leerdiskette. Die Diskette "
  585.                                "kann von diesem Skript formatiert werden.\n\n"
  586.                                "Wo wollen Sie 'RDBBackup' installieren?"))
  587.  
  588.    (set MSG_SELECT_DF0         "DF0:")
  589.    (set MSG_SELECT_DF1         "DF1:")
  590.    (set MSG_SELECT_DF2         "DF2:")
  591.    (set MSG_SELECT_DF3         "DF3:")
  592.    (set MSG_SELECT_DRAWER      "Verzeichnis")
  593.  
  594.    (set MSG_ASK_RDBBACKUPDIR   "Wo soll das 'RDBBackup' Verzeichnis erzeugt werden?")
  595.    (set MSG_COPY_RDBBACKUP     "Kopieren der Anwendung 'RDBBackup' nach '%s'!")
  596.  
  597.    (set MSG_INSERT_DISK (cat   "Bitte legen Sie eine Diskette in Laufwerk '%s' ein "
  598.                                "und starten sie danach die Installation.\n\n"
  599.                                "Wollen Sie die Diskette in Laufwerk '%s' formatieren?"))
  600.  
  601.    (set MSG_SELECT_FORMAT      "Formatieren")
  602.    (set MSG_SELECT_NOFORMAT    "Nicht formatieren")
  603.  
  604.    (set MSG_FORMATTING_DISK    "Diskette in Laufwerk '%s' wird formatiert.")
  605.    (set MSG_INSTALLING_DISK    "Diskette in Laufwerk '%s' wird installiert.")
  606.    (set MSG_COPYING_FILES      "Dateien werden nach '%s' kopiert.")
  607.    (set MSG_CREATING_STARTUP   "'%ss/startup-sequence' wird angelegt.")
  608.  
  609.    (set MSG_INSTALLED_FILES    "Installierte Dateien und Programme:\n-----------------------------------\n")
  610.    (set MSG_NOTHING_INSTALLED  "Es wurden keine Dateien auf ihre Datenträger kopiert!")
  611.  
  612.    (set docname                "rexxtricks.dok")
  613.    (set rdbbackupguide         "RDBBackupD.guide")
  614. )
  615.  
  616. ; ***** English ****************************************************************
  617.  
  618. (procedure english
  619.    (set MSG_SELECT_INSTALL     "Please select the programs to install.")
  620.    (set MSG_INSTALL_REXXTRICKS "rexxtricks.library - Version 38.6")
  621.    (set MSG_INSTALL_GUIDE      "RexxTricks.guide   - AmigaGuide-Documentation")
  622.    (set MSG_INSTALL_DOC        "RexxTricks.doc     - ASCII-Documentation")
  623.    (set MSG_INSTALL_FINDGUI    "FindGUI            - GUI for Find")
  624.    (set MSG_INSTALL_RDBBACKUP  "RDBBackup          - GUI for ReadRDB")
  625.  
  626.    (set MSG_ASK_LIBDIR         "In which directory would you like to copy '%s'?%s")
  627.    (set MSG_COPY_LIB           "Copying '%s'!%s")
  628.    (set MSG_COPY_CATALOG       "Copying file 'rexxtricks.catalog'!")
  629.    (set MSG_FLUSH_LIB (cat     "\nTo use the new '%s', the old version must be flushed "
  630.                                "from memory! Please quit all programs, which are using "
  631.                                "the '%s', and then click on 'Proceed'!"))
  632.    (set MSG_PROCEED            "Proceed")
  633.    (set MSG_SKIP               "Skip this part")
  634.  
  635.    (set MSG_ASK_DOCDIR         "In which directory would you like to copy the file '%s'?")
  636.    (set MSG_COPY_GUIDE         "Copying AmigaGuide documentation to '%s'!")
  637.    (set MSG_COPY_DOC           "Copying ASCII documentation to '%s'!")
  638.  
  639.    (set MSG_INFO_EXTRALIB      " This library is used by 'FindGUI' and 'RDBBackup'!")
  640.  
  641.    (set MSG_INFO_TRX (cat      "\n\nPlease read the file 'TritonRexx.ReadMe' "
  642.                                "for more information on 'TritonRexx'!"))
  643.  
  644.    (set MSG_INFO_TRITON (cat   "\n\nPlease read the file 'ReadMe' in the 'Triton' "
  645.                                "drawer for more information on 'Triton'!\n"
  646.                                "'Triton' is © 1993-1994 Stefan Zeiger."))
  647.  
  648.    (set MSG_ASK_FINDDIR        "Where do you want to create the 'FindGUI' drawer?")
  649.    (set MSG_COPY_FINDGUI       "Copying the application 'FindGUI' to '%s'!")
  650.  
  651.    (set MSG_ASK_FLOPPY (cat    "'RDBBackup' should be installed on a bootable floppy "
  652.                                "disk! If you select a drive, you need an empty disk. "
  653.                                "The disk can be formatted by this script.\n\n"
  654.                                "Where do you want to install 'RDBBackup'?"))
  655.  
  656.    (set MSG_SELECT_DF0         "DF0:")
  657.    (set MSG_SELECT_DF1         "DF1:")
  658.    (set MSG_SELECT_DF2         "DF2:")
  659.    (set MSG_SELECT_DF3         "DF3:")
  660.    (set MSG_SELECT_DRAWER      "Drawer")
  661.  
  662.    (set MSG_ASK_RDBBACKUPDIR   "Wher do you want to create the 'RDBBackup' drawer?")
  663.    (set MSG_COPY_RDBBACKUP     "Copying the application 'RDBBackup' to '%s'!")
  664.  
  665.    (set MSG_INSERT_DISK (cat   "Please insert a disk in drive '%s' and then start "
  666.                                "the installation.\n\n"
  667.                                "Do you want to format the disk in Drive '%s'?"))
  668.  
  669.    (set MSG_SELECT_FORMAT      "Format")
  670.    (set MSG_SELECT_NOFORMAT    "Don't format")
  671.  
  672.    (set MSG_FORMATTING_DISK    "Formatting disk in drive '%s'.")
  673.    (set MSG_INSTALLING_DISK    "Installing disk in drive '%s'.")
  674.    (set MSG_COPYING_FILES      "Copying files to drive '%s'.")
  675.    (set MSG_CREATING_STARTUP   "Creating '%ss/startup-sequence'.")
  676.  
  677.    (set MSG_INSTALLED_FILES    "Installed files and applications:\n---------------------------------\n")
  678.    (set MSG_NOTHING_INSTALLED  "No files are copied to your disks!")
  679.  
  680.    (set docname                "rexxtricks.doc")
  681.    (set rdbbackupguide         "RDBBackupE.guide")
  682. )
  683.  
  684. ; ***** Main *******************************************************************
  685.  
  686. (if (= @language "deutsch")
  687.    (deutsch)
  688. )
  689.  
  690. (if (= @language "english")
  691.    (english)
  692. )
  693.  
  694. (set rexxtrickslib   "rexxtricks.library")
  695. (set tritonrexxlib   "tritonrexx.library")
  696. (set tritonlib       "triton.library")
  697. (set rexxtricksver   (+ (* 38 65536) 6))
  698. (set tritonrexxver   (+ (* 37 65536) 7))
  699. (set tritonver       (+ (*  5 65536) 5))
  700. (set libdir          "LIBS:")
  701. (set docdir          "HELP:")
  702. (set finddir         @default-dest)
  703. (set rdbbackupdir    @default-dest)
  704.  
  705. (set rexxtricksinstalled 0)
  706. (set guideinstalled 0)
  707. (set docinstalled 0)
  708. (set tritonrexxinstalled 0)
  709. (set tritoninstalled 0)
  710. (set findguiinstalled 0)
  711. (set rdbbackupinstalled 0)
  712.  
  713. (set options
  714.    (askoptions
  715.       (prompt MSG_SELECT_INSTALL)
  716.       (help @askoptions-help)
  717.       (choices MSG_INSTALL_REXXTRICKS MSG_INSTALL_GUIDE MSG_INSTALL_DOC MSG_INSTALL_FINDGUI MSG_INSTALL_RDBBACKUP)
  718.       (default 31)
  719.    )
  720. )
  721.  
  722. (if (BITAND options 1)
  723.    (install_rexxtricks)
  724. )
  725.  
  726. (if (BITAND options 2)
  727.    (install_guide)
  728. )
  729.  
  730. (if (BITAND options 4)
  731.    (install_doc)
  732. )
  733.  
  734. (if (BITAND options 8)
  735.    (install_findgui)
  736. )
  737.  
  738. (if (BITAND options 16)
  739.    (install_rdbbackup)
  740. )
  741.  
  742. (set infotext MSG_INSTALLED_FILES)
  743.  
  744. (if (= rexxtricksinstalled 2)
  745.    (set infotext (cat infotext rexxtrickslib "\n"))
  746. )
  747.  
  748. (if (= tritonrexxinstalled 2)
  749.    (set infotext (cat infotext tritonrexxlib "\n"))
  750. )
  751.  
  752. (if (= tritoninstalled 2)
  753.    (set infotext (cat infotext tritonlib "\n"))
  754. )
  755.  
  756. (if guideinstalled
  757.    (set infotext (cat infotext "rexxtricks.guide\n"))
  758. )
  759.  
  760. (if docinstalled
  761.    (set infotext (cat infotext docname "\n"))
  762. )
  763.  
  764. (if findguiinstalled
  765.    (set infotext (cat infotext "FindGUI\n"))
  766. )
  767.  
  768. (if rdbbackupinstalled
  769.    (set infotext (cat infotext "RDBBackup\n"))
  770. )
  771.  
  772. (if (= infotext MSG_INSTALLED_FILES)
  773.    (set infotext MSG_NOTHING_INSTALLED)
  774. )
  775.  
  776. (set @default-dest "")
  777.  
  778. (exit infotext)
  779.